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LLL II] 888 BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL 1] BBB BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL II] BBB BBB RRR RRR ABA AAA RRR RRR 
LLL II] 888 BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB RRR RRR AAA AAA RRR RRR 
LELLLLLLELLLLLL III BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LLLLLLLLLLLLLLL ITIIIIII BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LELLLLLLLLLLLLL IWII1111 BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
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B32; 9 a) 
MODULE Lib_extra 


BEGIN 7 | 


1 

WETTIITILIL ILI LL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LiL LLL ll 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


® 

® 

® 

® 

® 

*® 

® 

® 

. ROV *® 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 18 HEREBY 
is TRANSFERRED. “ 
® 

it THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE + 
® 

® 

® 

te 

® 

& 

at 

® 


T 
't AND SHOULD NOT BE CONSTRUED AS A TMENT BY DIGITAL EQUIPMENT 
!x CORPORATION. 


BJE 
OMM 


FOR THE USE OR RELIABILITY OF ITS 


ie DIGITAL ASSUMES NO RESPONSIBILITY 
NOT SUPPLIED BY DIGITAL. 


1B 
'® SOFTWARE ON EQUIPMENT WHICH I 
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FACILITY: Library command processor 
i ABSTRACT: 


SOOOOOCOOOOSSOSOSOSOSOSOOSOSOOOCOOOOOOOSOOOOOSOOOSooOSoOo 
ee em ne ee we ew ele lolololelololololololololololololelolelolelolo) 
FWA ANWAA AWWA PINPININPININPONINIDYD 2 9 9 OOO SM OOOOOOCOOCO 
SOOWONAOMUE WIN OO OONAOUE WN — O OODNAOUE WIN OOONOU Ewin 


NOAA OE WN OO OONO NEW 0 DONA WN S$ OO DNOUES WN OOONAOUES WN" OOONOUE WN 


PUPA STOTT BS BS BB BBE EE WWMM ANAND POPPIN PI NINIDY O O O ee 


i 

i The VAX/VMS Librerten is invoked by DCL to process the LIBRARY 

command. It utilizes the Librarian procedure set to perform 
+ the actual modifications to the Library. 
0041 i ENVIRONMENT : 
004 i 
Bez VAX native, user mode. 
45 1 i- 
0046 1) | 
0047 ! 
ops AUTHOR: Benn Schreiber, CREATION DATE: 26-June-1979 | 
Bnet MODIFIED BY: 
3036 i v02-005 RPGO035 Bob Grosso 03-Mar-1982 
005 i Close /OUT file if nothing extracted and continue 
0054 i extracting if one of a List of modules to be extracted 
B22 is not found. 
0089 i v02-004 RPG0034 Bob Grosso 77-Aug-1981 


—IZOMMIOOWZSES ACK TOMMOOWVZSr KOK TOM OOCWZ ES KCK TO MMOOOZ Sr ACK TO ™™OOW 
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3 : R28 } Lib$gl_ctlmsk now a quadword 

; 60 060 1! v02-003 BLS0029 Benn Schreiber 23-Dec-1980 
: o Bees : onvert messages to message compiler 

oe $088 1 i V02=002 RPGO003 Bob Grosso 3-Sep-1980 
> 64 0064 1! Exit read loop and continue extracting modules 

; o Bree } if read error encountered during extract. 

: 67 0067 1 !-- 

; 0068 1 

; 669 0069 1 
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2: LIBRAR.SRCJEXTRACT.B32;1 


renee 


ioe 0070 1 LIBRARY 

: ue B30) 1 *SYSSLIBRARY:STARLET.L32'; 

ate, - 72 1 REQUIRE 

:- 0075 1 *PREFIX'; 

; 0257 1 REQUIRE 

; = 0258 1 *"LIBDEF'; 

rs oe 0 ‘3 1 REQUIRE 

ee 0547 1 *"LBRDEF'; 

ee 1138 1 

; 1139 1 EXTERNAL 

.. 8} 1140 1 Lor$gl_rmsstv : writ ee MODE (GENERAL), !RMS STV from Librarian I/0 ops 
: B¢ 1141 1 Lib$gl_ modxtrl : R ted. 'Listhead for modules to extract 
 & 1106 1 Lib$gloctlmsk : BLocK. C2], 'Librarian control mask 

; & 1143 1 Lib$gl_ preeeee ‘Library control index 

;. 8 1144 1 LibSgl_type, 'Type of Library 

>; 6886 1145 1 Lib$gl= aeansnix, ipngen number for mod name index 
co a 1146 1 LibSal_rab : BBLOCK, 

; 8 1147 1 Lib$Sgl_libfdb : REF BBLOCK, ipeletes to Library FDB 

: 34 1308 ' Lib$Sgl-outfdb : REF BBLOCK; ‘Output file FDB 

s 91 1150 1 EXTERNAL ROUTINE 

_. . 1151 1 Lor$find : ADDRESSING_MODE (GENERAL), 'Find known text records 

et a 1136 1 Lbr$lookup_key : ADDRESSING_MODE (GENERAL), ‘Lookup key in Library 

; «694 1153 1 Lbr$get_record : ADDRESSING MODE (GENERAL), !Read record from Library 

; 1154 1 Lbr$get_index : ADDRESSING_MODE (GENERAL), ah all elements of an index 
: 1155 1 Lib_ attr out, epee output file 

ate . 4 1156 1 Lib_close_out, it ose output file 

;. 1157 1 Lib_log_op, bog extraction 

; : 1158 1 Lib_ -get _zmem, ‘Allocate zeroed virtual memory 
; 100 1159 #1 Lib_oet_mem, ‘Allocate virtual memory 

; 4 Fy 6 ' Lib_ free_mem; 'Deailocate virtual memory 

3 703 1162 1 EXTERNAL LITERAL 

> 104 1163 1 Lor$_nomtchfou, 'No match found 

; | «1S 1164 1 Lib$_romtchfou, 'No match found 

; 106 By 1 Lib$_indexerr, 'Index error 

s 107 1166 1 Lib$_lookuperr, ‘Lookup error in Library 

; ‘2 Hh 4 ! Lib$_extracted; 'Successfully extracted module 
3; 110 1169 1 FORWARD ROUTINE 

s 111 1170 1 extractmodule; ‘Extract one module 

: 112 1171 «1 

s 415 1172 1 OWN ; 

3 (114 11735 1 extracted; 'Flag true if a module was extracted 


> 16 
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CO 
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; Open the output file 
extracted! = false; 


17 GLOBAL ROUTINE Lib_extrct_mods = 

17 BEGIN 

17 l++ 

i Extract modules from the Library 

i Inputs 

1 i NONE 

1B2 5 i 

i Implicit inputs: 

18 i Lib$Sgl_modxtrl is the queue listhead containing the names of the 
13 modules to extract. 

18 ; Outputs: 

| the specified modules are extracted and written to the output file. 
19 ine 

19 LOCAL 

19 nmblk : REF BBLOCK, 

1? keydesc : BBLOCK Cdsc$c_s_bin]; 'Descriptor for key returned 
19 BIND 

19 outdesc = Lib$gl_outfdb babe mendes : BBLOCK, 

8 Libdesc = Lib$Sgl_libfdb Cfdb$l_namdesc] : BBLOCK; 

0 BUILTIN 

0 REMQUE; 

0 

0 

0 

0 

0 

0 


NO oa FOO OS EE ES wb are eee ESE SES etcn us 


dsc$a_pointer] = nmblk [Llnb$t_name); ues i 
IF NOT CHSFAIL (CHSFIND_CH (.keydesc decdy. Lengthy. jsheck if any wild cards 
shervese Cdsc$a_pointer], ZASCII ‘%')) 

OR NOT CHSFAIL (CHSFIND_CH (.keydesc Cdsc$w seneeh 
-keydesc Cdsc$a_pointer), XASCIT ‘**)) 


ee ee ee a BD ee ed ed aed wed 
mee me a a a a a od od = = od = = = = = 2 = 3 
DOW NOAUN EWR OC ONAUE WWD OC ODNOAUE WN OOOO UF WR OOONC EWR OUDONOUS 
BAIA AINA URIPPUPIPOPINYDIPGPIMUDINIIINPIPYPINIPIPIPYPINIPIPOPYPIPYPIPUPIPYPIPIPIPOPUPONIPINPYIPUPUPYNEY 


Be Be Be Oe Be Se Se Se Se Se BH Ss Be Ge FH Hs Be Se hs Se Ge Se Se FH Ge Se Se Se Se Se Se HSH Se Be HH Se Se Be iy BH Se Se Se Se SESE SESS Ss Se Se Ss Se Se Seas 


P perform (Lib_open_out ati ts outfdb, ‘Open the file 
Pp L7b$gl_lLibfdb Cfdb$t_nam], ! using the library NAM block as the related NAM blo 
P 121 (IF .t gSol type EQL Lbr$c_typ_mlb ! with carriage control 
P 121 OR .Lib$gl_fype EQL Lbr$c_Typ_Alp ! if macro or help 
P 121 OR hes type EQL Lbr$c_typ_txt ' or text Library 
P 121 HEN true 
: ELSE false))); 
1 ' Now lookup each module on the extract List, and if found 
$1 ' copy it to the output file. Issue warning message if 
; module is not found 
5} WHILE NOT REMQUE (.Lib$gl_modxtrl, nmbLk) 'Get next one off the List 
DO BEGIN 
a . 
status; 
keydesc Edsc$u_tength] = .nmblk Clnb$b_naming); 'Set descriptor for module name 
) keydesc : 


THEN BEGIN 


16 
LIB_EXTRACT 1b-Se 1984 01:51:1 AX-11 Bliss-32 V4.0-742 Page 
yO02000 10-88 b-1 984 93:88: LIBRAR.SRCJEXTRACT.B32;1 . 
; 73 1231 5 IF (status = lbrS$get_index (Lid$gl_libctl, Lib$gl_modnamix, 
; 174 1 ; 4 extractagayie. keydesc)) FL (br$_nomtchfou 
s 75 1 4 THEN SIGNAL (LibS_nomtchfou, 1, keydesc) 
3 178 1234 4 ELSE IF NOT .status 
mt 1235 4 THEN SIGNAL (Lib$_indexerr, 1, 
: 178 1 $ 4 Uibsgl LiBfdb Cfdb$l_namdesc), .status, 
> 179 1 4 -lLbrS$gl_rmsstv); 
noes oie cz 
g 186 } re extractmodule ( keydesc ); ‘Extract the module 
: 184 1 tg Lib_free_mem (lnb$c_fixedsize+.nmblk Samer tH -nmblk); !Deallocate the module name block 
; 185 124 END; 'WHILE (oop 
> «186 1244 ! 
: 187 1245 ! Close the output file 
; 4188 1246 : 
; 199 : 7 Lib_close_out (.lLib$gl_outfdb, NOT .extracted1); 
3 191 12469 RETURN true 
3° 192 1250 1 END; ! Of Lib_extrct_mods 


TITLE LIB_EXTRACT 
IDENT \V0%-000\ 


. .PSECT $OWNS,NOEXE,2 
~ 00000 EXTRACTED: 
BL B 


K 4 
-EXTRN LBRSGL_RMSSTV, LIBSGL_MODXTRL 
.EXTRN LIBSGL-CTLMSK, LIBSGL-LIBCTL 
.EXTRN LIBSGL_TYPE, LIBSGL_MODNAMIX 
-EXTRN LIBSAL_-RAB, LIBSGL_CIBFDB 
TEXTRN LIBS$GL-OUTFDB, LBRSFIND 
é -EXTRN LBRSLOOKUP_KEY, LBRSGET_RECORD 
a .EXTRN LBRSGET_INDEX, LIB_OPEN 
-EXTRN LIB_CLOSE_OUT, LOG 
-EXTRN LIB_GET_ZMEM, LIB_GET MEM 
-EXTRN LIB FREE_MEM, LBRS_NOMTCHFOU 
“EXTRN cIBS_NOMTCHFOU, LIB$_INDEXERR 
.EXTRN LIBS_LOOKUPERR, LIBS_EXTRACTED 


-PSECT SCODES,NOWRT,2 


001¢ 00000 .ENTRY LIB_EXTRCT_MODS, Save R2,R3.R4 : 
54 000000006 00 H 0000 MOVAB LIBSSIGNAL’ R4 : 
SE 08 C 9009 SUBL2 #8, SP : 
000' CF b4 0006 CLRL.  EXTRACTED1 ; 

59 000G CF DO 0001 MOVL LIBSGL_TYPE. RO ; 
0 50 D1 00015 CMPL RO, : 
OA 13 00018 BEQL «=s«1$ : 

03 50 D1 OOO1A CMPL RO, #3 : 
05 13 00010 BEQL =s1$ : 

04 50 Di OO01F CMPL RO, #4 : 
04 12 ge BNEQ  2$ : 

1 DD 00024 1$ PUSHL #1 : 


F 
LIB XTRACT 16-Sep-1984 01:51:18 AX-11 Bliss-32 V4.0-742 Page 6 
Vous tony 1e-8ep-1984 o}: 38; :01 LIBRAR.SRCJEXTRACT.B32;1 nad 
| aes ae ee OTE, Seep : 
7E Q000G CF 00000040 8F C1 50 A $§: ADDL3 #64, LIBSGL_LIBFDB, -(SP) ; 
‘ «00006 CF 0D°00034 PUSHL L18 $GL_OUTFBS : 
00006» ¢F 3 FB 0038 CALLS # L168 -OREN. OUT : 
Ort ab ‘gg 9039 BLBS STATUS : 
53 =~ 00006” DF. OF Sbes 4$ REMOQUE eee _MODXTRL, NMBLK + 1220 
Fs 03 iC. 0046 BVC 5$ : 
ieee 0089 317.0004 BRw 12$ ; 
6€ -* 09 A3. 9B 00048 5$ MOVZBW 9CNMBLK) » K KEYDESC + 1226 
04°. AE OA “A 3 OO4F MOVA VO<R3) KEYDESC+4 + 1225 
04 BE 5 SOR rg SA 00054 LOCC #37, KEYDESC, @KEYDESC+4 ; 1226 
2-12 .00059 BNEQ 6$ : 
1-04 00058 CLRL 1 ; 
51 05 0005D 6$ TSTL = R11 + 1227 
0d 12°0005F BNEQ 8$ ; 
04 BE 6E 2A 3A 00061 LOCC #42, KEYDESC, @KEYDESC+4 : 1228 
02 12 00066 BNEQ 7$ ; 
51 D4 00068 CLRL R11 ; 
51 05 0006A 7$ TSTL = R1 + 1229 
4E 13 0006C BEQL  10$ F 
SE. DD O006E 8$ PUSHL SP + 1231 
0000v CF 9F 00070 PUSHAB EXTRACTMODULE ; 
0000G CF 9F 00074 PUSHAB LIBSGL_MODNAMIX ; 
0000G CF 9F 00078 PUSHAB LIBS$GL-LIBCTL ; 
000000006 00 04 FB 0007C CALLS Fa ; CBRSGET. TNDEX ; 
52 50 00 00083 MOVL RO. STATUS ; 
000000006. &F 52 D1 00086 CMPL STATUS, #LBRS$_NOMTCHFOU : 1232 
OF 12 0008D BNEG 9S : 
5E DD O008F PUSHL SP : 1233 
01 DD 00091 | PUSHL #1 : 
000000006 8F DD 00093 PUSHL aL Bs NOMT CHF OU ; 
64 03 FB 00099 CALLS LIBSSIGNAL ; 
25. 11 0009C BRB tig, : 
22 52 £8 0009E 9S: BLBS STATUS, 11$ > 1234. 
000000006 00 DD 000A1 PUSHL Lensct “RMSSTV > 1237 
38 DD 000A7 PUSH : 1236 
7E 0000G CF 10 C1 000A9 ADDL a6. LIBSGL_LIBFDB, -(SP) ; 
01 DD OOOAF PUSHL F 
000000006 8F DD 00081 PUSHL HL 1BS INDEXERR : 
64 05 FB 00087 CALLS LTBSSIGNAL ; 
07 11 0O00BA BRB +f : 1226 
E DD 9008¢ 10$:  PUSHL SP > 1240 
0000v © CF 01 FB 000B CALLS #1, EXTRACTMODULE : 
3 OD 990¢ 11$:  PUSHL NMBLK + 1242 
7E 09 Ad 9A 000C MOVZBL 9(NMBLK), -(SP) ; 
bE — OA CO 000C9 ADDL2 #10, (S ; 
00006 CF 02 FB 000CC CALLS #2, LIB_FREE_MEM : 
FF6D 31 00001 BRW 4$ > 1220. 
7E 0000" CF d2 0004 12$:  MCOML EXTRACTED1, -(SP) : 124? 
00006 CF DD 00009 PUSHL L {Bsc OUTFDB ; 
00006 CF 2 FB 000 CALLS , LIB_CLOSE_ouT : 
50 01 OE MOVL * RO” > 1249 
04 O00E RET : 1250 


; Routine Size: 230 bytes, Routine Base: S$CODE$S + 0000 
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ide=600 14 set OF Sh Os LIBRAR.SRCJEXTRACT.B32;1 . ( 
ROUTINE extractmodule (keydesc, modrfa) = 
elk 
i Routine to extract one module from Library 


Inputs: 


keydesc Address of string descriptor for — to extract 


st 
modrfa (optional) Address of RFA for module 


The module is extracted from the Library 


S3SF 


COOCODDODO 
SEUSS SVO swe SOONG ALU MOSS Ue MR ooo Shee 


i 
i 
i 
i 
! 
Outputs: 
i 
i 
= 
MAP 
keydesc : REF BBLOCK; 


tee wy : BBLCTK Cdsc$c_s_bin], 'String descriptor for recordbuffer 
status, 
txtrfa : BBLOCK ([rfa$c_length); 


BUILTIN 
NULLPARAME TER; 


recdesc pasciu_taogrns = Lbr$c_maxrecsiz; 'set up buffer string descriptor 

dsc$a_pointer] = recordbuffer; 

IF NOT NULLPARAMETER (2) 

THEN status = Lor$find (Lib$gl_Libctl, .modrfa) 

ELSE status = Lbr$lookup_key (Tib$gl_libctl, ekeydesc, txtrfa); 

IF NOT .status 

THEN BEGIN 

SIGNAL (Lib$_looku 
b$gl_lib 


C0 C9 C9 CD 09 09 SI NINN NEN SN PAPA MUMIMIMIIVIVIVIV 


SS CSARAN SSSENSARAN AS SONOUR Inv — OOo Wen Pow oOo dou 


perr, 2, .keydesc, 
fdb Etdbsi_namdesc), -Status, .lbr$gl_rmsstv); 


‘Continue the search 


Libs 
RETURN true; 
END 


Process module after successful lookup/find 


POIPIPOPIPINIPININIDINYINININPININININININININIPIPININIPYPINPINININININININYDY 2 2 OS 


WA. AAA AAI POPU NIPINPOPIPINIDD 9 = OO SS OO 


io 


ELSE WHILE true 'found=--copy to output file 
DO IF ¢ 


recdesc Cdsc$w_length} = lbr$c_maxrecsiz; 
status = lbr$get_record (Lib$gl_libctl, recdesc, recdesc) !Read a record 


) 
THEN BEGIN 
Lib$Sal_rab rabsu_rsz) = .recdesc pgsc$u. length); '‘copy length to RAB 
Lib$Sal_rab Crab$l_rbf] = .recdesc dsc$a_pointer); ‘and its address 
t = LibSal_rab); ‘Write the record 


PIPIPIPININININININPINIPININIAIPININIPOPPNNoNoNonofnofnofrononuponopornoponopofpopnoponsporonony 


OOOOOOOWOMOM®M 


Winw 
oon 
oo 


N BE 
SIGNAL (Lib$_writeerr, 
1, Tib$gl_out fdb Cfapst pendess). 
rab$l_stvJ); 
but continue to process other modules 


a ee ee LES 


1 

LOCAL 

recordbuffer : BBLOCK Clbr$c_maxrecsiz], !Record buffer 
4 

4 

4 

& 

4 


PEROMONOPoNoPoNNofoNnPoNngny 
se 
fo 
WAN WwIwnonone 
NOUS WN Oo 


SQOOooOoooo 


.Status, .Tib$Sal_rab 
EXITLOOP; t 


veg 


= 


| AS Ae et At Ay A atl 
VIFWN—ODOONOULS WN 


Mrnononofnefnonofnororonoreferfery» 


bs se et a te 


WANA A AWN 


MPN 2 SS 2 OO 
WRC OONAUSWwr—O Oo 


RETURN true 
1 END; 


000000006 
000000006 
7E 


08 


000000006 


END 
ELSE IF .statu 


END 


s EQL rms$_eof 

THEN BEGIN 

Lib_log_op (Lib$_extrac 

eLibSgl_lib 

extracted] = true; 
RETURN true; 

END 
ELSE BEGIN 

SIGNAL (LibS_readerr, 1 
.Status, - Lorsg 
EXITLOOP; ! 
END; 


: 0 


16 
16- 
ihe 
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Sep-1984 12:38:0 


'If end of text 
'Then we are done 
> an aaa ! so log it if logging 


LibSgl_lLibfdb Cfdb$l_namdesc), 
(_rmsstv); 
uf continue to process other modules 


f extractmodule 


~-EXTRN SYSS$PUT 


007C 00000 EXTRACTMODULE: 
-WORD Save R2,R3,R4,R5,R6 
56 00006 CF 9€ 0000 MOVAB LIBS$GL_LIBCTL. R6 
55 00006 CF 9E 0000 MOVAB LIBSGL~LIBFDB, R5 
54 000000006 60 9E 9000¢ MOVAB LIBS$SIGNAL, R 
53 000000006 00 9€ 0001 MOVAB LBRSGL_RMSSTV, R3 
SE F7FO CE 9E OOOIA MOVAB -2064(SP), SP 
AE 0800 8F B80 OO01F MOVW #2048, RECDESC 
AE 10 AE 9E 00025 MOVAB RECORDBUFFER, RECDESC+4 
02 6¢ 91 0002A CMPB (AP), # 
13 1F 00020 BLSSU'1$ 
08 Ac D5 0002F TSTL  8(AP) 
OE 13 00032 BEQL =s«s1$ 
08 AC DD 00054 PUSHL MODRFA 
56 DD 00037 PUSHL  R6 
00 02 FB 00039 CALLS #2, LBRSFIND 
OE 11 00040 BRB 2$ 
E DD 00042 1$: PUSHL SP 
06 AC OD D044 PUSHL KEYDESC 
56 DD 00047 PUSHL R 
99 FB 00049 CALLS #3, LBRSLOOKUP_KEY 
5 4 0 2s: MOVL RO STATUS 
18 E 0 BLBS  STATus, 3$ 
g OD PUSHL LBRSGL_RMSSTV 
DD PUSH TA 
65 10 C1 A ADDL3 #16, LIBSGL_LIBFDB, -(SP) 
04 aC DD : PUSHL KEYOESC 
DD 9006 PUSHL 
000000006 8F DD 63 PUSHL aL 1Bs LOOKUPERR 
64 6 Fe 6 CALLS #6, LIBSSIGNAL 
6¢ 1 6C BRB 
AE 0800 F 0 Q006E 38 MOVW #2048, RECDESC 
0 AE OF PUSHAB RECDESC 
C AE 9F 00077 PUSHAB RECDESC 
56 DD O7A PUSHL 
00 03 FB 0007C CALLS #3, LBRSGET_RECORD 
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iOe=600 ease t88e FSiskitF «=| Haat sez eaXte asses 
8 39 09 3 MOVL RO, STAT 
E BLBC = STATUS 
09006 CF 8 AE 80 MOVW RECDES Se, LIBSAL_RAB+34 
000G CF ¢ AE p O8F MOVL RECDESC+4, LIBSAL_RAB+40 
00006 CF 9F 00095 PUSHAB LIBS$AL_RAB 
000000006 Q Ma, 099 CALLS #1, SySSPUT 
9 D OAQ MOVL RO STATUS 
C E A BLBS STATUS, 3$ 
00006 CF DD Ab PUSHL LIBS$AL_RAB+12 
3 DD OOOAA PUSH STATU 
7E 00006 CF 10 C1 OOOA ADDL #16, LIBSGL_OUTFDB, -(SP) 
1 OD 008 PUSHL #1 
008610D2 F DD 0008 PUSHL #8786130 
0 11 OOOBA BRB 7$ 
0001827A = BF : D1 OO00BC 4$ CMPL STATUS, #98938 
1 12 000C BNEQ 
65 DD 900¢ PUSHL LIBS$GL_LIBFDB 
04 AC DD 000C7 PUSHL KEY 
000000006 8F DD OOOCA PUSHL aS, Ts EXTRACTED 
0000G CF 03 FB 000D0 CALLS LOG_O 
0000° CF 01 00 Bo003 OVL tay 
13. 11 OOODA S$: BRB 
63 DD 000DC 6$: PUSHL LBRSGL_RMSSTV 
52 DD 9000 PUSH TUS 
7E 65 10 (C1 000€ ADDL #16, LIBSGL_LIBFDB, -(SP) 
01 DD OO0E4 PUSHL 
00861082 8F DD 000E6 PUSHL #8786098 
4 05 FB OOOEC 7$: CALLS #5, LIBSSIGNAL 
50 01 DO OOOEF 8$: MOVL 1, RO 
04 000F2 
; Routine Size: 243 bytes, Routine Base: S$CODE$ + 00E6 
3; 267 1324 1 END ! Of module 
3; 268 1325 0 ELUDOM 
.EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
; Name Bytes Attributes 
: $SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC.ALIGN(2) 
> SCODES 474 NOVEC;NOWRT, RD. EXE.NOSHR. LCL, REL. CON,NOPIC,ALIGN(O) 


Library Statistics 


cocccece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


a IEREOc19RE QO:SA:SE  WAHaAAAeLARScHtaNty a$$? pe as 


: .$255$DUA28: CSYSLIBISTARLET.L32;1 9776 35 0 581 00:01.0 


H COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LISS:EXTRACT/OBJ=OBJ$:EXTRACT MSRC$:EXTRACT/UPDATE=(ENH$: EXTRACT) 
Size: 473 08°%8.¢ + 4 data bytes 


: m 

; Elapsed Time: 00: 39 ‘8 
3; Lines/CPU Min: 4269 

; Loneneed Pye 46685 

; mary Used: 173 pages 
J a 


; Compilation Complete 


"AH: BT13A-SE 
VAX/VMS V4.0 
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R 


